home *** CD-ROM | disk | FTP | other *** search
/ H4CK3R 14 / hacker14.iso / programacao / visual / perl.exe / {app} / Templates / other / Vbscript.vbs < prev   
Encoding:
Text File  |  2003-01-11  |  1.8 KB  |  69 lines
  1. 'USEUNIT Db
  2. 'USEUNIT DBTables
  3. 'USEUNIT Menus
  4. 'USEUNIT ExtCtrls
  5. 'USEUNIT DBCtrls
  6. 'USEUNIT DBGrids
  7. 'USEUNIT ComCtrls
  8. 'USEUNIT Buttons
  9. 'USEUNIT StdCtrls
  10. 'USEUNIT About
  11. 'USEUNIT Filter1
  12.  
  13. dim  OrdersFilterAmount
  14.  
  15. '-------------------------------------------------------------------
  16.  
  17. sub rgDataSetClick(Sender)
  18.   st=""
  19.   if (CustomerSource.Dataset.Filtered) then st = CustomerSource.Dataset.Filter
  20.   select case (rgDataset.ItemIndex)
  21.     case 0:  CustomerSource.Dataset = SQLCustomer
  22.     case 1:  CustomerSource.Dataset = Customer
  23.   end select
  24.   if st <> "" then
  25.     CustomerSource.Dataset.Filter = st
  26.     CustomerSource.Dataset.Filtered = true
  27.   End If
  28. End Sub
  29.  
  30. '-------------------------------------------------------------------
  31.  
  32. sub SpeedButton1Click(Sender)
  33.   fmFilterFrm.Show
  34. End Sub
  35.  
  36. '-------------------------------------------------------------------
  37.  
  38. sub cbFilterOrdersClick(Sender)
  39.   SQLOrders.Filtered = cbFilterOrders.Checked
  40.   if (cbFilterOrders.Checked) then  Edit1Change(NULL)
  41. End Sub
  42.  
  43. '-------------------------------------------------------------------
  44.  
  45. sub About1Click(Sender)
  46.   Formabout.ShowModal
  47. End Sub
  48.  
  49. '-------------------------------------------------------------------
  50.  
  51. sub Edit1Change(Sender)
  52.   if (cbFilterOrders.checked) and ( Edit1.Text <> "") then
  53.     OrdersFilterAmount = StrToFloat(fmCustView.Edit1.Text)
  54.     SQLOrders.Filter = "AmountPaid >="+ fmCustView.Edit1.Text
  55.     SQLOrders.Refresh
  56.   End If
  57. End Sub
  58.  
  59. '-------------------------------------------------------------------
  60.  
  61. sub DBGrid1Enter(Sender)
  62.   DBNavigator1.DataSource = DBGrid1.DataSource
  63. End Sub
  64.  
  65. '-------------------------------------------------------------------
  66.  
  67. sub DBGrid2Enter(Sender)
  68.   DBNavigator1.DataSource = DBGrid2.DataSource
  69. End Sub